﻿
Namespace Validation

    Public Class BankRoutingNumberRuleEventArgs
        Inherits RuleEventArgs

#Region " Declarations "

        Private _enumRequiredEntry As RequiredEntry = RequiredEntry.No

#End Region

#Region " Properties "

        Public Property RequiredEntry() As RequiredEntry
            Get
                Return _enumRequiredEntry
            End Get
            Set(ByVal Value As RequiredEntry)
                _enumRequiredEntry = Value
            End Set
        End Property

#End Region

#Region " Constructors "

        Public Sub New(ByVal e As BankRoutingNumberValidatorAttribute, ByVal strPropertyName As String)
            MyBase.New(strPropertyName, e.PropertyFriendlyName, e.RuleSet, e.CustomMessage)
            _enumRequiredEntry = e.RequiredEntry
        End Sub

        Public Sub New(ByVal enumRequiredEntry As RequiredEntry, ByVal strCustomMessage As String, ByVal strPropertyFriendlyName As String, ByVal strPropertyName As String, ByVal strRuleSet As String)
            MyBase.New(strPropertyName, strPropertyFriendlyName, strRuleSet, strCustomMessage)
            _enumRequiredEntry = enumRequiredEntry
        End Sub

#End Region

    End Class

End Namespace
